Bar chart on race and sex
race_sex_df = Shooting_df %>%
group_by(vic_sex,vic_race) %>%
summarise(count = n()) %>%
pivot_wider(names_from = vic_race, values_from = count)
`summarise()` has grouped output by 'vic_sex'. You can override using the `.groups` argument.
LS0tCnRpdGxlOiAiRGF0YSBWaXN1YWxpemF0aW9uIgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogdHJ1ZQplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQotLS0KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQpsaWJyYXJ5KHBsb3RseSkKbGlicmFyeShkcGx5cikKYGBgCgojIyBCYXIgY2hhcnQgb24gcmFjZSBhbmQgc2V4CgpgYGB7ciBiYXIgY2hhcnR9CnJhY2Vfc2V4X2RmID0gU2hvb3RpbmdfZGYgJT4lCiAgc3Vic2V0KHZpY19zZXggPT0gIk0iIHwgdmljX3NleCA9PSAiRiIpCiAgZ3JvdXBfYnkodmljX3NleCx2aWNfcmFjZSkgJT4lIAogIHN1bW1hcmlzZShjb3VudCA9IG4oKSkgJT4lIAogIHBpdm90X3dpZGVyKG5hbWVzX2Zyb20gPSB2aWNfcmFjZSwgdmFsdWVzX2Zyb20gPSBjb3VudCkKcmFjZXNleF9iYXIgPSAKICBwbG90X2x5KHggPSB+dmljX3JhY2UsIHkgPSB+LCB0eXBlID0gJ2JhcicsIG5hbWUgPSAnU0YgWm9vJykgJT4lIAogIAogIGFkZF90cmFjZSh5ID0gfkxBX1pvbywgbmFtZSA9ICdMQSBab28nKQpmaWcgPC0gZmlnICU+JSBsYXlvdXQoeWF4aXMgPSBsaXN0KHRpdGxlID0gJ0NvdW50JyksIGJhcm1vZGUgPSAnc3RhY2snKQogIAogIAoKCgpgYGAKCgpgYGB7ciB9CgpgYGAKCg==